home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A).po / MINIPAINT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  592b  |  2 lines
  1. 1  FOR J = 768 TO 778: READ D: POKE J,D: NEXT J: DATA 1,0,4,0,173,63,55,45,245,63,0: HGR : HGR2 : POKE 230,32: POKE 232,0: POKE 233,3: POKE 49236,0:X = 140:A = X:Y = 95:B = Y: SCALE= 1: ROT= 0:C = 3: HCOLOR= C: DRAW 1 AT X,Y: FOR I = 2 TO 3:I = I -1: GET P$:P =  ASC(P$):CC = (P >47) *(P <56)
  2. 2 PN = (PN = 0) *(P = 80) +PN *(P < >80):X = X +(P = 75) -(P = 74):Y = Y +(P = 77) -(P = 73):X = X *(X <280) +279 *(X <0):Y = Y *(Y <192) +191 *(Y <0):C = (CC = 1) *(P -48) +(CC = 0) *C: HCOLOR= C *PN +4 *(PN = 0) *(C >3): DRAW 1 AT A,B: HCOLOR= C: DRAW 1 AT X,Y:A = X:B = Y: IF P < >81  THEN  NEXT